home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #2
/
Commodore_Disk_User_Vol.1_2_1988_-.d64
/
basic scroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
354b
|
14 lines
10 ifa=0thena=1:load"ballch*",8,1
20 ifa=1thena=2:load"ballsc*",8,1
30 ifa=2thena=3:load"ballba*",8,1
40 diml(26),r(25):l(1)=1024
50 poke53272,(peek(53272)and240)or2
60 poke53270,peek(53270)or16
70 poke53280,6:poke53281,14:poke53282,9:poke53283,8
80 fora=1to25:r(a)=l(a)+39:l(a+1)=r(a)+1:next
90 forz=1to39
100 forb=0to39
110 for c=1 to 25:pokel(c)+b,peek(l(c)+b+1):nextc,b
120 for a=1 to 25:poker(a),peek(l(a)):nexta,z
130 goto80